home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh03b.d64 / 16 farben (.txt) next >
Encoding:
Commodore BASIC  |  1995-03-30  |  744 b   |  20 lines
  1. 10 PRINT"[147]MOMENT"
  2. 20 CK=0
  3. 30 FORG=673TO754:READA:POKEG,A:CK=CK+A:NEXT
  4. 40 IFCK<>8662THENPRINT"DATA ERROR":END
  5. 50 DATA 169,172,141,008,003,169,002,141,009,003,096,032,115,000,201,033,240
  6. 60 DATA 009,032,121,000,076,231,199,076,008,207,160,000,032,115,000,217,238
  7. 70 DATA 002,208,243,200,192,005,208,243,032,155,215,142,132,003,032,121,000
  8. 80 DATA 201,044,208,225,032,155,215,138,010,010,010,010,109,132,003,141,015
  9. 90 DATA 144,169,005,032,210,255,076,174,199,070,065,082,066,069
  10. 100 SYS673
  11. 110 !FARBE 6,14
  12. 120 PRINT"[147]      16 FARBEN"
  13. 130 PRINT"SYNTAX: !FARBE BORDER(0-7), TEXT(0-15)"
  14. 140 PRINT"                                      "
  15. 150 PRINT"                TASTE
  16. 160 [153]"                                      "
  17. 170 [161]Z$:[139]Z$[178]""[167]170
  18. 180 [153]"LOAD";:!FARBE 3,6
  19. 190 [153]"********!FARBE********":[162]
  20.